\section{Ejercicio 6: \textit{podar}}
\subsection{Enunciado}
Definir la funci\'on
\texttt{ 
\\podar :: Int $\to$ Arbol a $\to$ Arbol a
}
\\de tal forma que (podar n) sea la funci\'on que se queda con los primeros n niveles de un \'arbol,
reemplazando a la lista de hijos por [] cuando se alcanza el en\'esimo nivel.
Definirla utilizando foldArbol , sin recursi\'on expl\'icita.
\emph{Sugerencia:} definir primero la funcion \texttt{podar' :: Arbol a $\to$ Int $\to$ Arbol a}
\subsection{Codigo}

\scriptsize\begin{verbatim}

podar :: Int -> Arbol a -> Arbol a
podar i a = podarP a i

podarP :: Arbol a -> Int -> Arbol a
podarP = foldArbol (\a xs n -> if (n == 0) then (Nodo a []) else (Nodo a (map (\x -> x (n-1)) xs))) (id)

\end{verbatim}
\normalsize
